home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / TURB_VIS / TVDMX / RSET.PAS < prev    next >
Pascal/Delphi Source File  |  1994-06-20  |  2KB  |  106 lines

  1.  
  2. {■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■}
  3. {                            }
  4. {    RSET    --General data types and constants    }
  5. {                            }
  6. {    Copyright (c) 1992  Randolph Beck        }
  7. {                P.O. Box  56-0487        }
  8. {                Orlando, FL 32856        }
  9. {                CIS:  72361,753        }
  10. {                            }
  11. {■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■}
  12.  
  13. Unit RSet;
  14.  
  15. interface
  16.  
  17. type
  18.     TREALNUM  =  Real;
  19.     PREALNUM    = ^TREALNUM;
  20.  
  21.     { Using TREALNUM for floating point numbers makes it easy
  22.       to change from REAL to DOUBLE or other real number type. }
  23.  
  24.  
  25.     PBoolean    = ^Boolean;
  26.     PByte    = ^Byte;
  27.     PShortInt    = ^Shortint;
  28.     PInteger    = ^Integer;
  29.     PWord    = ^Word;
  30.     PLongInt    = ^LongInt;
  31.     PReal    = ^Real;
  32.  
  33.     PCharArray    = ^TCharArray;
  34.     TCharArray    =  array[0..32767] of char;
  35.  
  36.  
  37. const
  38.     FirstCmdNum    =  4400;  { starting number for reserved commands }
  39.     FirstRegNum    =  4400;  { starting number for registered objects }
  40.  
  41.  
  42.     { Day and Month constants }
  43.     Sunday    =   0;
  44.     Monday    =   1;
  45.     Tuesday    =   2;
  46.     Wednesday    =   3;
  47.     Thursday    =   4;
  48.     Friday    =   5;
  49.     Saturday    =   6;
  50.  
  51.     January    =   1;
  52.     February    =   2;
  53.     March    =   3;
  54.     April    =   4;
  55.     May        =   5;
  56.     June    =   6;
  57.     July    =   7;
  58.     August    =   8;
  59.     September    =   9;
  60.     October    =  10;
  61.     November    =  11;
  62.     December    =  12;
  63.  
  64.  
  65.     { file-open mode constants for TDosStreams }
  66.     stDenyAll    = $10;
  67.     stDenyWrite    = $20;
  68.     stDenyRead    = $30;
  69.     stDenyNone    = $40;
  70.  
  71.  
  72.     { KeyCode constants }
  73.     kbCtrlA    = $1E01;
  74.     kbCtrlB    = $3002;
  75.     kbCtrlC    = $2E03;
  76.     kbCtrlD    = $2004;
  77.     kbCtrlE    = $1205;
  78.     kbCtrlF    = $2106;
  79.     kbCtrlG    = $2207;
  80.     kbCtrlH    = $2308;
  81.     kbCtrlI    = $1709;
  82.     kbCtrlJ    = $240A;
  83.     kbCtrlK    = $250B;
  84.     kbCtrlL    = $260C;
  85.     kbCtrlM    = $320D;
  86.     kbCtrlN    = $310E;
  87.     kbCtrlO    = $180F;
  88.     kbCtrlP    = $1910;
  89.     kbCtrlQ    = $1011;
  90.     kbCtrlR    = $1312;
  91.     kbCtrlS    = $1F13;
  92.     kbCtrlT    = $1414;
  93.     kbCtrlU    = $1615;
  94.     kbCtrlV    = $2F16;
  95.     kbCtrlW    = $1117;
  96.     kbCtrlX    = $2D18;
  97.     kbCtrlY    = $1519;
  98.     kbCtrlZ    = $2C1A;
  99.     kbShiftEnter= $1C0D;
  100.  
  101.  
  102. implementation
  103.  
  104.  
  105. End.
  106.